home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / Borland Visual dBASE Professiona v7.0 / DATA1.CAB / Sample_dBASE / Fleet / Fabout.wfm < prev    next >
Text File  |  1997-11-20  |  5KB  |  219 lines
  1. //--------------------------------------------------------------
  2. //
  3. //  FAbout.wfm --  About box for the Fleet application. 
  4. //
  5. //  This form displays system memory in a standard
  6. //  application about box. This form opens from the
  7. //  Fleet menu selection: Help | About Fleet.
  8. //
  9. //  Dependencies: <none>
  10. //
  11. //  Visual dBASE Samples Group
  12. //
  13. //  $Revision:   1.9  $
  14. //
  15. //  Copyright (c) 1997, Borland International, Inc. 
  16. //  All rights reserved.
  17. //
  18. //---------------------------------------------------------------
  19. SET TALK OFF
  20. ** END HEADER -- do not remove this line
  21. //
  22. // Generated on 11/12/97
  23. //
  24. parameter bModal
  25. local f
  26. f = new FABOUTFORM()
  27. if (bModal)
  28.    f.mdi = false // ensure not MDI
  29.    f.readModal()
  30. else
  31.    f.open()
  32. endif
  33.  
  34. class FABOUTFORM of FORM
  35.    with (this)
  36.       readModal = class::FORM_READMODAL
  37.       autoCenter = true
  38.       scaleFontSize = 8
  39.       scaleFontBold = false
  40.       colorNormal = "lightblue"
  41.       height = 15
  42.       left = 9
  43.       top = 0.2632
  44.       width = 58
  45.       text = "About Fleet Manager"
  46.       background = "filename planes.jpg"
  47.       mdi = false
  48.       icon = "filename Fleet.ico"
  49.    endwith
  50.  
  51.  
  52.    this.BUTTONOK = new PUSHBUTTON(this)
  53.    with (this.BUTTONOK)
  54.       onClick = {;form.close()}
  55.       onOpen = {; this.text = ""}
  56.       height = 1.6
  57.       left = 40.5
  58.       top = 12.5
  59.       width = 15
  60.       text = " "
  61.       metric = 0    // Chars
  62.       upBitmap = "filename OK.BMP"
  63.       fontName = "MS Sans Serif"
  64.       fontSize = 8
  65.       group = true
  66.       colorNormal = "BtnText/BtnFace"
  67.       value = false
  68.    endwith
  69.  
  70.  
  71.    this.RECTANGLE1 = new RECTANGLE(this)
  72.    with (this.RECTANGLE1)
  73.       left = 1
  74.       top = 9.5
  75.       width = 56
  76.       height = 0.15
  77.       metric = 0    // Chars
  78.       text = ""
  79.       colorNormal = "lightblue"
  80.       border = false
  81.       borderStyle = 10    // Etched Out
  82.    endwith
  83.  
  84.  
  85.    this.LABELRES = new TEXT(this)
  86.    with (this.LABELRES)
  87.       height = 1
  88.       left = 1
  89.       top = 10
  90.       width = 40
  91.       metric = 0    // Chars
  92.       colorNormal = "white"
  93.       transparent = true
  94.       fontSize = 9
  95.       fontBold = true
  96.       text = "Physical Memory Available to Windows:"
  97.    endwith
  98.  
  99.  
  100.    this.TEXTVERSION = new TEXT(this)
  101.    with (this.TEXTVERSION)
  102.       height = 1
  103.       left = 1
  104.       top = 7
  105.       width = 45
  106.       metric = 0    // Chars
  107.       colorNormal = "white"
  108.       transparent = true
  109.       fontSize = 9
  110.       fontBold = true
  111.       text = "Version 7.0"
  112.    endwith
  113.  
  114.  
  115.    this.TEXTCOPYRIGHT = new TEXT(this)
  116.    with (this.TEXTCOPYRIGHT)
  117.       height = 1
  118.       left = 1
  119.       top = 8
  120.       width = 45
  121.       metric = 0    // Chars
  122.       colorNormal = "white"
  123.       transparent = true
  124.       fontSize = 9
  125.       fontBold = true
  126.       text = "Copyright (C) 1997  Borland International"
  127.    endwith
  128.  
  129.  
  130.    this.LABELFREE = new TEXT(this)
  131.    with (this.LABELFREE)
  132.       height = 1
  133.       left = 1
  134.       top = 11
  135.       width = 40
  136.       metric = 0    // Chars
  137.       colorNormal = "white"
  138.       transparent = true
  139.       fontSize = 9
  140.       fontBold = true
  141.       text = "Free Memory:"
  142.    endwith
  143.  
  144.  
  145.    this.TEXTFREE = new TEXT(this)
  146.    with (this.TEXTFREE)
  147.       height = 1
  148.       left = 41.5
  149.       top = 10
  150.       width = 14.5
  151.       metric = 0    // Chars
  152.       colorNormal = "white"
  153.       alignHorizontal = 2    // Right
  154.       transparent = true
  155.       fontSize = 9
  156.       fontBold = true
  157.       text = "TEXTFREE"
  158.    endwith
  159.  
  160.  
  161.    this.TEXTRES = new TEXT(this)
  162.    with (this.TEXTRES)
  163.       height = 1
  164.       left = 41.5
  165.       top = 11
  166.       width = 14.5
  167.       metric = 0    // Chars
  168.       colorNormal = "white"
  169.       alignHorizontal = 2    // Right
  170.       transparent = true
  171.       fontSize = 9
  172.       fontBold = true
  173.       text = "TEXTRES"
  174.    endwith
  175.  
  176.  
  177.    this.TEXTAPP = new TEXT(this)
  178.    with (this.TEXTAPP)
  179.       height = 2
  180.       left = 1
  181.       top = 0.5
  182.       width = 56
  183.       metric = 0    // Chars
  184.       colorNormal = "darkblue/white"
  185.       alignVertical = 1    // Middle
  186.       alignHorizontal = 1    // Center
  187.       fontName = "MS Sans Serif"
  188.       fontBold = true
  189.       text = "A Visual dBASE Sample Application"
  190.       borderStyle = 10    // Etched Out
  191.    endwith
  192.  
  193.  
  194.    this.IMAGELOGO = new IMAGE(this)
  195.    with (this.IMAGELOGO)
  196.       height = 3
  197.       left = 1
  198.       top = 3
  199.       width = 56
  200.       metric = 0    // Chars
  201.       dataSource = 'FILENAME "logo2.GIF"'
  202.       alignment = 3    // Keep Aspect Stretch
  203.       borderStyle = 3    // None
  204.    endwith
  205.  
  206.  
  207.    // {Linked Method} form.readModal
  208.    function Form_ReadModal
  209.       local nFree, nRes
  210.       nFree = TRANSFORM( MEMORY() , "999,999,999" )
  211.       nRes  = TRANSFORM( MEMORY(1), "999,999,999" )
  212.       with ( this )
  213.          TEXTFREE.text := LTRIM( RTRIM( nFree ) ) + " KB"
  214.          TEXTRES.text  := LTRIM( RTRIM( nRes ) ) + " KB"
  215.       endwith     
  216.    return FABOUTFORM::ReadModal()
  217.       
  218. endclass
  219.